home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / e-lang / dirlist.lha / dirlist / examples / DirList_Example.e next >
Text File  |  1996-05-02  |  902b  |  42 lines
  1. /*
  2. ** DirList_Example 1
  3. **
  4. ** Methods: setdir(), read(), sort(), first(), obj()
  5. **          succ()
  6. **
  7. ** This code is placed in Public Domain
  8. **
  9. ** (C)Copyright 1996 Fabio Rotondo
  10. **
  11. */
  12.  
  13.  
  14. MODULE 'Fabio/DirList_oo',       -> Our MAGIC MODULE!
  15.        'tools/exceptions'
  16.  
  17. PROC main() HANDLE
  18.   DEF dl:PTR TO dirlist         -> Instance of our DirList object
  19.  
  20.   NEW dl.dirlist()              -> Here we initailize it!
  21.  
  22.   dl.setdir('ram:')            -> Set the dir we wish TO scan!
  23.   WriteF('Reading...\n')
  24.   dl.read()                     -> Scan it!
  25.   WriteF('Sorting!\n')
  26.   dl.sort(TRUE)                 -> Sort it!
  27.  
  28.   WriteF('Done!\n')
  29.  
  30.   IF dl.first()                 -> Show It!
  31.     REPEAT
  32.       WriteF('\s\n',dl.obj())
  33.     UNTIL dl.succ()=FALSE
  34.   ENDIF
  35.  
  36. EXCEPT DO
  37.   report_exception()
  38.   END dl            -> Always remember to END an OBJECT!!!
  39.   CleanUp()         -> Let's Keep Things Clean!
  40. ENDPROC
  41.  
  42.